home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998…eptember: Technology Seed / September 98 ADC Seed CD.toast / LaserWriter 8.6b5 Seed / LaserWriter 8.6b5 / PrintingLib / PrintingLib.rsrc / PS_-8192 < prev    next >
Encoding:
Text File  |  1998-08-12  |  1.7 KB  |  148 lines
  1. %%BeginFile: lw8_basic-3.0
  2. /xdf{exch def}bd
  3. /:L/lineto
  4. /lw/setlinewidth
  5. /:M/moveto
  6. /rl/rlineto
  7. /rm/rmoveto
  8. /:C/curveto
  9. /:T/translate
  10. /:K/closepath
  11. /:mf/makefont
  12. /gS/gsave
  13. /gR/grestore
  14. /np/newpath
  15. 12{ld}repeat
  16. /framewidth -1 def
  17. /QDframwid -1 def
  18. /numframes Z
  19. /mTS matrix def
  20. /$m matrix def
  21. /av 86 def
  22. /por T def
  23. /normland F def
  24. /psb-nosave{}def
  25. /pse-nosave{}def
  26. /us Z
  27. /psb{/us save store}bd
  28. /pse{us restore}bd
  29. /level3
  30. /languagelevel where
  31. {
  32. pop languagelevel 3 ge
  33. }{
  34. F
  35. }ifelse
  36. def
  37. level2 startnoload
  38. /setjob
  39. {
  40. statusdict/jobname 3 -1 roll put
  41. }bd
  42. /devg/DeviceGray def
  43. /devr/DeviceRGB def
  44. /devc/DeviceCMYK def
  45. level2 endnoload level2 not startnoload
  46. /setjob
  47. {
  48. 1 dict begin/JobName xdf currentdict end setuserparams
  49. }bd
  50. /devg[/DeviceGray]def
  51. /devr[/DeviceRGB]def
  52. /devc[/DeviceCMYK]def
  53. level2 not endnoload
  54. /pm Z
  55. /mT Z
  56. /sD Z
  57. /initializepage
  58. {
  59. mT $m currentmatrix mTS concatmatrix pop
  60. /pm save store mT concat
  61. }bd
  62. /endp
  63. {
  64. pm restore
  65. }bd
  66. /adjRect
  67. {
  68. dup 2 mul 6 2 roll
  69. 4 index sub exch 5 -1 roll sub exch
  70. 4 2 roll
  71. 4 index add exch 5 -1 roll add exch
  72. 4 2 roll
  73. }bd
  74. /frame1up
  75. {
  76. gS
  77. mTS setmatrix
  78. QDframwid lw
  79. /setstrokeadjust where{pop T setstrokeadjust}if
  80. clippath pathbbox
  81. 2 index sub exch
  82. 3 index sub exch
  83. currentlinewidth framewidth mul
  84. adjRect
  85. numframes dup 0 lt{pop 0}if
  86. {
  87. 4 copy
  88. rS
  89. currentlinewidth framewidth
  90. mul 4 mul
  91. adjRect
  92. }repeat
  93. pop pop pop pop
  94. gR
  95. }bd
  96. /$c devr def
  97. /rectclip where
  98. {
  99. pop/rC/rectclip ld
  100. }{
  101. /rC
  102. {
  103. np 4 2 roll
  104. :M
  105. 1 index 0 rl
  106. 0 exch rl
  107. neg 0 rl
  108. :K
  109. clip np
  110. }bd
  111. }ifelse
  112. /rectfill where
  113. {
  114. pop/rF/rectfill ld
  115. }{
  116. /rF
  117. {
  118. gS
  119. np
  120. 4 2 roll
  121. :M
  122. 1 index 0 rl
  123. 0 exch rl
  124. neg 0 rl
  125. fill
  126. gR
  127. }bd
  128. }ifelse
  129. /rectstroke where
  130. {
  131. pop/rS/rectstroke ld
  132. }{
  133. /rS
  134. {
  135. gS
  136. np
  137. 4 2 roll
  138. :M
  139. 1 index 0 rl
  140. 0 exch rl
  141. neg 0 rl
  142. :K
  143. stroke
  144. gR
  145. }bd
  146. }ifelse
  147. %%EndFile
  148.